0 GOSUB60000
1 REM * THE DRAGON'S 7 RIDDLES *
2 REM * BY MEREDITH JONES FRUMMER &             THOMAS F. TROCCO, 12/83
5 REM *
6 GOTO200
10 :
20 :
30 :
40 :
50 :
60 :
70 :
80 :
90 :
100 :
200 POKE53280,7:POKE53281,7
220 ZZ=20:GOSUB1340:PRINT""
240 PRINT"[217]OU ARE WALKING ALONE IN AN ENCHANTED   FOREST WHEN YOU ARE CAPTURED";
260 PRINT" BY AN EVIL DRAGON NAMED [195][200][210][217][211][207][208][200][217][204][193][216][146]."
280 PRINT" [212]HE DRAGON WILL ASK YOU SEVEN RIDDLES  WITH 20 CHANCES TO ANSWER.";
300 PRINT" [201]F YOU ANSWERALL 7 CORRECTLY BEFORE YOUR CHANCES ARE UP, YOU";
320 PRINT" WILL ESCAPE WITH THE  DRAGON'S  TREASURE.
340 [153][166]9)"PRESS STOPRETURNWAIT TO GO ON
360 GETA$:IFA$<>CHR$(13)THEN360
380 GOSUB1340:PRINT"[201]F YOU LOSE...":PRINT"[195][200][210][217][211][207][208][200][217][204][193][216][146] EATS YOU!
400 [153]"(null)HEN LENLEFT$(null)(null)(null)(null)(null)LEFT$(null)(null)ATN(null)WAIT ASKS YOU FOR AN ANSWERTYPE IN YOUR ANSWER";
420 [153]" AND HIT STOPRETURNWAIT.
440 PRINT"[196]ON'T USE 'A','AN', OR 'THE' IN YOUR    ANSWERS: CHRYSOPHYLAX[146]";
460 PRINT" ISN'T VERY SMART!!
480 [153][166]8)"PRESS STOPRETURNWAIT TO PLAY.
500 GETA$:IFA$<>CHR$(13)THEN500
520 GOSUB1340:PRINT"            [205]Y FIRST RIDDLE!
540 [153]"(null)OU CAN BEND IT, BUT  IT'S MADE FROM    TREES.
560 INPUT"[201]T IS";A1$
580 IFA1$=CHR$(80)+CHR$(65)+CHR$(80)+CHR$(69)+CHR$(82)THENGOSUB1540:GOSUB1400:GOTO620
600 GOSUB1720:ZZ=ZZ-1:GOSUB1400:GOTO520
620 GOSUB1340:PRINT"            [205]Y SECOND RIDDLE!!
640 [153]"RIGHT$T CAN WEAR ROCK DOWN, BUT IT COMES FROMROCK ITSELF.
660 INPUT"[201]T IS";A2$
680 IFA2$=CHR$(83)+CHR$(65)+CHR$(78)+CHR$(68)THENGOSUB1540:GOSUB1400:GOTO720
700 GOSUB1720:ZZ=ZZ-1:GOSUB1400:GOTO620
720 GOSUB1340:PRINT"            [205]Y THIRD RIDDLE!!!
740 [153]"ATNNIMALS AND PEOPLE BREATHE IN WHAT      'THEY' BREATHE OUT."
760 [133]"(null)HAT ARE 'THEY'";A3$
780 [139]A3$[178][199](80)[170][199](76)[170][199](65)[170][199](78)[170][199](84)[170][199](83)[167][141]1540:[141]1400:[137]820
800 [141]1720:ZZ[178]ZZ[171]1:[141]1400:[137]720
820 [141]1340:[153]"          (null)Y FOURTH RIDDLE!!!!
840 PRINT"[215]HAT WALKS ON FOUR FEET IN THE MORNING, TWO FEET DURING THE ";
860 PRINT"DAY, AND THREE FEET AT NIGHT"
880 INPUT"";A4$
900 IFA4$=CHR$(77)+CHR$(65)+CHR$(78)THENGOSUB1540:GOSUB1400:GOTO980
920 IFA4$=CHR$(80)+CHR$(69)+CHR$(79)+CHR$(80)+CHR$(76)+CHR$(69)THENGOSUB1540:GOSUB1400:GOTO980
940 IFA4$=CHR$(72)+CHR$(85)+CHR$(77)+CHR$(65)+CHR$(78)+CHR$(83)THENGOSUB1540:GOSUB1400:GOTO980
960 GOSUB1720:ZZ=ZZ-1:GOSUB1400:GOTO820
980 GOSUB1340:PRINT"            [205]Y FIFTH RIDDLE!!!!!
1000 [153]"(null)HAT CAN YOU FEEL THAT YOU CAN'T TOUCH"
1020 [133]"";A5$
1040 [139]A5$[178][199](72)[170][199](85)[170][199](78)[170][199](71)[170][199](69)[170][199](82)[167][141]1540:[141]1400:[137]1120
1060 [139]A5$[178][199](67)[170][199](79)[170][199](76)[170][199](68)[167][141]1540:[141]1400:[137]1120
1080 [139]A5$[178][199](80)[170][199](65)[170][199](73)[170][199](78)[167][141]1540:[141]1400:[137]1120
1100 [141]1720:ZZ[178]ZZ[171]1:[141]1400:[137]980
1120 [141]1340:[153]"           (null)Y SIXTH RIDDLE!!!"
1140 [153]"(null)HAT FALLS WITHOUT BREAKING?"
1160 [133]"";A6$
1180 [139]A6$[178][199](82)[170][199](65)[170][199](73)[170][199](78)[167][141]1540:[141]1400:[137]1220
1200 [141]1720:ZZ[178]ZZ[171]1:[141]1400:[137]1120
1220 [141]1340:[153]"           (null)Y LAST RIDDLE!!!"
1240 [153]"(null)HAT HAS NO BEGINNING AND NO END?"
1260 [133]"";A7$
1280 [139]A7$[178][199](67)[170][199](73)[170][199](82)[170][199](67)[170][199](76)[170][199](69)[167][137]2140
1300 [139]A7$[178][199](82)[170][199](76)[170][199](78)[170][199](71)[167][137]2140
1320 [141]1720:ZZ[178]ZZ[171]1:[141]1400:[137]1220
1340 [143]        *** TITLE SUBROUTINE ***
1350 [153]"LOAD"[166]9)"                      "
1360 [153][166]9)"  THE DRAGON'S SEVEN  "
1370 [153][166]9)"       RIDDLES        "
1380 [153][166]9)"                      ":[142]
1400 [143] *** # OF GUESSES SUBROUTINE ***
1410 [153]""[163]255)[163]110)
1420 [139]ZZ[178]1[167][153]"   (null)OU HAVE ONLY ONE GUESS REMAINING!!"
1440 [139]ZZ[178]0[167][137]1960
1460 [139]ZZ[179][177]1[167][153]"     (null)OU HAVE";ZZ;"GUESSES REMAINING."
1480 [153][166]8)"PRESS STOPRETURNWAIT TO GO ONONON
1500 GETA$:IFA$<>CHR$(13)THEN1500
1520 RETURN
1540 REM *CORRECT ANS. SOUND SUBROUTINE*
1550 PRINT"            [212]HAT'S CORRECT!!"
1560 POKE54276,17:FORA=15TO0STEP-1:POKE54296,A:POKE54273,86:FORB=1TO25:NEXTB,A
1570 POKE54276,8:POKE54296,15
1580 POKE54276,0:POKE54296,0:POKE54273,0
1590 RETURN
1720 REM *WRONG ANSWER SOUND SUBROUTINE*
1730 PRINT"           [212]HAT'S INCORRECT!!"
1740 POKE54296,15
1750 FORT=1TO15:POKE54287,20:POKE54290,8:POKE54290,129:POKE54290,128:NEXT
1760 POKE54296,0
1765 S=54272:FORE=STOS+28:POKEE,0:NEXT
1770 RETURN
1960 REM *GAME END EXPLOSION SUBROUTINE*
1970 PRINT"[147][217]OU HAVE BEEN EATEN!!!"
1980 POKE54276,15:POKE54276,129:POKE54273,91:FORD=15TO0STEP-1:POKE54296,D
1990 POKE53281,1:POKE53280,2:FORE=1TO70:NEXT:POKE53280,E:NEXT
2000 POKE54276,0:POKE54296,0:POKE53280,7:POKE53281,7
2060 PRINT"[208]LAY AGAIN (Y/N)?"
2080 GETA$:IFA$="[217]"THENRESTORE:RUN
2100 IFA$="N"THENPRINT"[147]":POKE53280,6:POKE53281,14:GOTO63000
2110 GETA$:IFA$="Y"THENRESTORE:RUN
2120 GOTO2080
2140 PRINT"[147]"SPC(8);" [217]OU HAVE BEATEN THE"
2141 PRINTSPC(8)"                    "
2145 PRINTSPC(8)" DRAGON AND HAVE WON"
2146 PRINTSPC(8)"                    "
2147 PRINTSPC(8)"ITS MAGIC MUSIC BOX!"
2150 GOSUB21700
2260 PRINT"[208]LAY AGAIN (Y/N)?"
2280 GETA$:IFA$="Y"THENRESTORE:RUN
2300 IFA$="N"THENPRINT"[147]":POKE53280,6:POKE53281,14:GOTO63000
2320 GOTO2280
21700 REM *** SWAN LAKE SUBROUTINE ***
21701 FR=3520:REM *NOTE 'A' IN TOP OCT*
21702 CO=2^(1/12)
21703 FORI=1TO9:FR=FR/CO:NEXT
21704 SS=16777216
21705 CS=1022730
21706 FC=SS/CS
21707 DIMF(7,11)
21708 FORI=0TO11
21709 S=FR*FC
21710 FORJ=7TO0STEP-1:F(J,I)=S:S=S/2
21711 NEXT
21712 FR=FR*CO
21713 NEXT
21714 SID=54272
21715 VOICE=0:OCT=3:WAVE=32
21716 VM=7:HI=256
21717 FORI=0TO23:POKESID+I,0:NEXT
21718 POKESID+24,15+16
21719 READA,D,S,R,PW,C,RE
21720 FORI=0TO2:INDEX=SID+I*VM
21721 POKEINDEX+5,A*16+D
21722 POKEINDEX+6,S*16+R
21723 POKEINDEX+2,PWAND 255
21724 NEXT
21725 DATA0,10,0,0,800,2000,15
21726 POKESID+23,7+RE*16
21727 CH=INT(C/8):CL=C-CH*8
21728 POKESID+21,CL:POKESID+22,CH
21729 POKEINDEX+3,PW/HI
21730 READTEMPO
21731 READOCT,SEM,DUR:IFOCT<0GOTO21740:REM  ***  READ NOTE AND EXIT IF END  ***
21732 FRQ=F(OCT,SEM)
21733 FH=INT(FRQ/HI):FL=FRQ-FH*HI
21734 INDEX=SID+VOICE*VM
21735 POKEINDEX,FL:POKEINDEX+1,FH
21736 POKEINDEX+4,WAVE:POKEINDEX+4,WAVE+1
21737 VOICE=VOICE+1:IFVOICE>2THENVOICE=0
21738 FORI=1TODUR*TEMPO:NEXT
21739 GOTO21731
21740 FORI=1TO1000:NEXT
21741 POKESID+24,0:RETURN
21742 DATA80:REM *** TEMPO ***
21743 REM                *** MEASURE 1 ***
21744 DATA5,2,8
21745 DATA4,7,2
21746 DATA4,9,2
21747 DATA4,10,2
21748 DATA5,0,2
21749 REM                *** MEASURE 2 ***
21750 DATA5,2,6
21751 DATA4,10,2
21752 DATA5,2,6
21753 DATA4,10,2
21754 REM                *** MEASURE 3 ***
21755 DATA5,2,6
21756 DATA4,7 ,2
21757 DATA4,10,2
21758 DATA4,7 ,2
21759 DATA4,3 ,2
21760 DATA4,10,2
21761 REM                *** MEASURE 4 ***
21762 DATA4,7,10
21763 DATA5,0,2
21764 DATA4,10,2
21765 DATA4,9,2
21766 REM                *** MEASURE 5 ***
21767 DATA5,2,8
21768 DATA4,7,2
21769 DATA4,9,2
21770 DATA4,10,2
21771 DATA5,0,2
21772 REM                *** MEASURE 6 ***
21773 DATA5,2,6
21774 DATA4,10,2
21775 DATA5,2,6
21776 DATA4,10,2
21777 REM                *** MEASURE 7 ***
21778 DATA5,2,6
21779 DATA4,7 ,2
21780 DATA4,10,2
21781 DATA4,7 ,2
21782 DATA4,3 ,2
21783 DATA4,10,2
21784 REM                *** MEASURE 8 ***
21785 DATA4,7,12
21786 DATA4,7 ,4
21787 REM                *** MEASURE 9 ***
21788 DATA4,9 ,4
21789 DATA4,10,4
21790 DATA5,0,4
21791 DATA5,2 ,2
21792 DATA5,3 ,2
21793 REM               *** MEASURE 10 ***
21794 DATA5,5,6
21795 DATA5,3,2
21796 DATA5,2,4
21797 DATA5,3 ,2
21798 DATA5,5 ,2
21799 REM               *** MEASURE 11 ***
21800 DATA5,7,6
21801 DATA5,5,2
21802 DATA5,3,4
21803 DATA5,5 ,2
21804 DATA5,7 ,2
21805 REM               *** MEASURE 12 ***
21806 DATA5,9,6
21807 DATA5,7,2
21808 DATA5,2,2
21809 DATA4,10,2
21810 DATA4,9 ,2
21811 DATA4,7 ,2
21812 REM               *** MEASURE 13 ***
21813 DATA4,9,4
21814 DATA4,10,4
21815 DATA5,0,4
21816 DATA5,2,2
21817 DATA5,3,2
21818 REM               *** MEASURE 14 ***
21819 DATA5,5,6
21820 DATA5,3,2
21821 DATA5,2,4
21822 DATA5,3,2
21823 DATA5,5,2
21824 REM               *** MEASURE 15 ***
21825 DATA5,7,6
21826 DATA5,5,2
21827 DATA5,3,4
21828 DATA5,5,2
21829 DATA5,7,2
21830 REM               *** MEASURE 16 ***
21831 DATA5,8,6
21832 DATA5,3,2
21833 DATA5,0,4
21834 DATA5,3,2
21835 DATA5,8,2
21836 REM               *** MEASURE 17 ***
21837 DATA5,9,6
21838 DATA5,4,2
21839 DATA5,9,6
21840 DATA5,2,2
21841 REM               *** MEASURE 18 ***
21842 DATA5,2,8
21843 DATA4,7,2
21844 DATA4,9,2
21845 DATA4,10,2
21846 DATA5,0,2
21847 REM               *** MEASURE 19 ***
21848 DATA5,2,6
21849 DATA4,10,2
21850 DATA5,2,6
21851 DATA4,10,2
21852 REM               *** MEASURE 20 ***
21853 DATA5,2,6
21854 DATA4,7,2
21855 DATA4,10,2
21856 DATA4,6 ,2
21857 DATA4,3,2
21858 DATA4,10,2
21859 REM               *** MEASURE 21 ***
21860 DATA4,7,6
21861 DATA-1,0,0:REM *** END OF TUNE ***
60000 T$="                         ":C=0:C$="":PRINT"[147]":POKE53281,0
60030 PRINTSPC(7)""T$:PRINTSPC(7)"    [196]RAGON'S [210]IDDLES     [146]"
60051 PRINTSPC(7)""T$:PRINT:PRINTTAB(18)"BY"
60060 PRINT:PRINTSPC(11)"[205]EREDITH [198]RUMMER"
60062 PRINTTAB(18)"AND"
60065 PRINT:PRINTSPC(12)"[212]HOMAS [212]ROCCO"
60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985"
60080 PRINT:PRINT:PRINT:PRINT"     [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
60090 PRINT:PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 PRINT:PRINT"      [208]RESS SPACE BAR TO CONTINUE."
60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130
60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C)
60125 NEXT:GOTO60100
60130 PRINTC$:RETURN
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END